! terrible hack to get the eigenmodes of Kasahara projected onto 
! any levels of the homme grid
module eigenmodes_mod
  
  use kinds, only              : real_kind
  use dimensions_mod, only     : nlev, nlevp, np, qsize

implicit none
private

! modes 50m/s and 35m/s (next mode) in Kasahara's paper

real(kind=real_kind), public,parameter :: phi2(26)=(/&
     -0.007337493822000,&
     0.118883498000000,&
     -0.456767499400000,&
     0.391599506100000,&
     0.325116097900000,&
     -0.023457411680000,&
     -0.253726452600000,&
     -0.300079464900000,&
     -0.221998348800000,&
     -0.092901237310000,&
     0.035050913690000,&
     0.134106606200000,&
     0.194574371000000,&
     0.217648416800000,&
     0.209931433200000,&
     0.179894879500000,&
     0.135859519200000,&
     0.084998980160000,&
     0.032974228260000,&
     -0.016081368550000,&
     -0.059398807590000,&
     -0.095340006050000,&
     -0.123152837200000,&
     -0.142745107400000,&
     -0.154490560300000,&
     -0.159070998400000/)

real(kind=real_kind), public,parameter :: phi1(26)=(/&
     -0.236983940000000,&
     0.606555998300000,&
     0.211910575600000,&
     -0.083771891890000,&
     -0.231404617400000,&
     -0.283108860300000,&
     -0.280808478600000,&
     -0.250541478400000,&
     -0.207501724400000,&
     -0.160313263500000,&
     -0.113736532600000,&
     -0.070275433360000,&
     -0.031121836980000,&
     0.003289628075000,&
     0.032952915880000,&
     0.058095749470000,&
     0.079063676300000,&
     0.096251495180000,&
     0.110063776400000,&
     0.120891913800000,&
     0.129102557900000,&
     0.135031625600000,&
     0.138983294400000,&
     0.141229286800000,&
     0.142011478500000,&
     0.141543597000000/)

end module eigenmodes_mod
